library(goalprog)
library(lpSolve)

coefficients <- matrix(
  c(0.1, 0.24, 1.68, 0.68, 7.26, 0.4, 0.1, 0.2), 
  4
)

targets <- c(12.3, 14, 14, 10)

achievements <- data.frame(
  objective = 1:4,
  priority = c(1, 2, 3, 4),
  p = c(1, 0, 1, 1),
  n = c(1, 2, 0, 0)
)

soln <- llgp(coefficients, targets, achievements)

soln$converged

soln$out